home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CS / CSCD022A.D64 / head align 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  922 b   |  27 lines
  1. 100 POKE646,1
  2. 105 INPUT"[147]INPUT DEVICE NUMBER (8-30)";DV:IF DV<8 OR DV>30 THEN100
  3. 110 POKE53280,14:POKE53281,6:POKE646,1
  4. 120 PRINT"[147]COMMODORE SCENE DISK DRIVE ALIGNMENT"
  5. 130 PRINT" ADJUSTING HEAD PLEASE WAIT":PRINT" READ TIME :MUST BE LESS THAN NINE"
  6. 140 GOSUB240
  7. 150 Q$="":R$="[145]         [157][157][157][157][157][157][157][157]"
  8. 160 Q$=Q$+"                    [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
  9. 170 OPEN3,DV,15:OPEN2,8,3,"#":OPEN1,8,15
  10. 180 TI$="000000":PRINT#3,"B-R";3;0;1;1:PRINT#3,"B-P"3;1:GET#2,A$
  11. 190 REM
  12. 200 PRINT#3,"B-R";3;0;35;2:PRINT#3,"B-P"3;1:GET#2,A$
  13. 210 INPUT#1,E1,E2$,E3,E4:PRINTQ$;E1;E2$;E3;E4:X=TI
  14. 220 PRINTR$;X:IFX<9THENFORU=1TO1000:NEXTU:GOTO290
  15. 230 GOTO180
  16. 240 PRINT"[155] THIS PROGRAM RESETS THE POSITION OF "
  17. 250 PRINT"THE HEAD ON YOUR 1541/1570 TO NEARLY "
  18. 260 PRINT"PERFECT ALIGNMENT !! ,THE PROGRAM "
  19. 270 PRINT"SHOULD BE USED AS OFTEN AS IS NECESSARY"
  20. 280 RETURN
  21. 290 CLOSE3:CLOSE2:CLOSE1
  22. 300 OPEN15,8,15
  23. 310 PRINTDOWN2$;"ALIGNMENT OK, NOW INITIALIZING!"
  24. 320 FORI=1TO10:PRINT#15,"I":INPUT#15,E1,E2$,E3,E4:PRINTQ$;E1;E2$;E3;E4:NEXTI
  25. 330 CLOSE15
  26. 340 PRINT"":NEW
  27.